55 REM********************************
56 REM  PET SUPER BASEBALL VERS 7.3
57 REM
58 REM    DEVELOPED BY JINSHI SUZUKI
59 REM    THE WORLD-FAMOUS PROGRAMMER
60 REM
61 REM   SPECIAL THANKS TO SEIBU DEP.
62 REM           AND MR.HIRAKI
63 REM
64 REM FIXES BY GORD CAMPBELL
65 REM
66 REM COMMODORE 64 MODS BY: BILL MUNCH
67 REM            8301.29
68 REM ADD 64 MODS BY: FRED LAYBERGER                          OMAHA, NEBRASKA
69 REM********************************
70 POKE646,11:POKE53280,13:POKE53281,15
71 PRINT"[147]     THESE BUTTONS MOVE THE
75 [153]"    (null)LEFT$    OUT-FIELD PLAYERS
80 PRINT"   [206] [200]       RIGHT OR LEFT
85 [153]"  (null)  LEFT$
90 PRINT" Q   E
95 [153]"                    *PRESS 'F1' TO SWING
100 PRINT" A S D [196]SLOW BALLS  *PRESS 'F3' TO MAKE
105 [153]"                       THE THIRD BASE"
110 [153]"                       RUNNER HOLD UP."
115 [153]" Z X C STR$FAST BALLS
120 PRINT" [194] [194] [194]
125 [153]" PEEKCLOSEPEEKCLOSEPEEK
130 PRINT" [194] [194]  CURVE
135 [153]" PEEK PEEK
140 PRINT" [194]  STRAIGHT
145 [153]" PEEK
150 PRINT"  KNUCKLER
155 [153]"PRESS A KEY TO CONTINUE
160 GETY$:IFY$=""THEN160
165 DIMPG$(8),PT$(8),G%(8),T%(8),C$(3):F=-1:C$(0)="   ":C$(1)="[209][151]":C$(2)="[209][209][151]"
170 C$(3)="[209][209][209][151]":P$="":PC=54272:C=6:CC=2:D=1:FC=0
175 REM PET SOUND  POKE59467,16:POKE59466,1:POKE59464,0
180 PRINT"[147]WHO IS ON THE MOUND TODAY?"
185 INPUT"EXPOS";PG$(8):INPUT"BLUE JAYS";PT$(8)
190 FORN=0TO7:READPG$(N):NEXT
195 FORN=0TO7:READPT$(N):NEXT:FORN=0TO8:READG%(N),T%(N):NEXT
200 PRINT"[147]":DIMA$(9),B$(9),BA(4):BA(0)=1:AT=0:BT=0
205 FORN=1TO9:A$(N)="0":B$(N)="0":NEXT
210 FORN=1TO17:PRINT"[205]";:NEXT:PRINT"[145]";:FORN=1TO17:PRINT"[206][145]";:NEXT
215 PRINT"[223][169][145]";:FORN=1TO6:PRINT"[206][145]";:NEXT:PRINT"[223][169]";
220 FORN=1TO6:PRINT"[205]";:NEXT:PRINT"[223][169]"
225 POKE1482,121:POKE1482+PC,D
230 PRINT"";
235 PRINTTAB(16);"[207][208]  [207][208]  [151]123456789"
240 PRINTTAB(16);"[165][167][223][169][165][167]"
245 PRINTTAB(16);"[204][186]  [204][186][151][193]"
250 PRINTTAB(22);"[151][216]":FORIN=1TO18:PS=1071
255 REM PET SOUND  POKE59464,221:POKE59466,0:POKE59467,0
260 FORN=1TO36:POKE1064+N,32:NEXT
265 PO=65:PD=88 :IFF>0THENPO=88:PD=65
270 POKE1071,PD:POKE1083,PD:POKE1094,PD:POKE1196,PD:POKE1206,PD
271 POKE1071+PC,C:POKE1083+PC,C:POKE1094+PC,C:POKE1196+PC,C:POKE1206+PC,C
275 POKE1516,PD:POKE1371,PD:POKE1482,PD:POKE1923,PD:POKE1395,PD
276 POKE1516+PC,C:POKE1371+PC,C:POKE1482+PC,C:POKE1923+PC,C:POKE1395+PC,C
280 FORN=1TO3:BA(N)=0:NEXT:POKE1450,32:POKE1240,32:POKE1516,32
285 IFIN<18ORBT<=ATTHEN815
290 POKE1897,86:POKE1897+PC,D:GOTO935
295 AD=1024+INT(.4+X)+INT(.5+Y)*40:SV=PEEK(AD):S1=PEEK(AD-1):S2=PEEK(AD+1)
300 POKEAD,CH:POKEAD+PC,FC:RETURN
305 POKE1803,78:POKE1803+PC,FC:GOSUB780:SS=TAN(1):POKE1803,32
306 POKE1763,100:POKE1763+PC,FC
310 SS=TAN(2):POKE1763,77:POKE1763+PC,FC:RETURN
315 POKE1802,77:POKE1802+PC,FC:GOSUB780:SS=TAN(2):POKE1802,32
316 POKE1762,100:POKE1762+PC,FC
320 GOSUB780:SS=TAN(5):POKE1762,78:POKE1762+PC,FC:RETURN
325 IFBA$THENRETURN
330 B0=BA(1)+BA(2)+BA(3):IFB0=0THENRETURN
335 IFF<0AND(PT=2ORPT=3)THENPRINTP$;PT$(PT);"!!":GOTO345
340 IFF>0AND(PG=2ORPG=3)THENPRINTP$;TAB(29);PG$(PG);"!!":GOTO345
345 IFB0=3ANDF>0THENPRINTP$;PT$(8);"!!"
350 IFB0=3ANDF<0THENPRINTP$;TAB(29);PG$(8);"!!"
355 FORM=1TO100:GETBA$:IFBA$THEN365
360 NEXT
365 PRINTP$;"          ";TAB(29);"          ":FORM=1TO200:NEXT:RETURN
370 X=19:POKE1762,121:POKE1762+PC,FC
375 POKE1763,121:POKE1763+PC,D:POKE1803,105:POKE1803+PC,D
376 POKE1762,121:POKE1762+PC,D:POKE1802,95:POKE1802+PC,D
379 POKE1842,32:POKE1923,PD:POKE1923+PC,C
380 IFH=1THENPOKE1804,101:POKE1804+PC,D:POKE1801,PO:POKE1801+PC,CC:GOTO390
385 POKE1801,103:POKE1801+PC,D:POKE1804,PO:POKE1804+PC,CC
390 BA=0
395 SP=0
400 GETBA$
405 GOSUB325
410 EE=0
415 IFBA$="A"THENEE=-1:GOTO1115
420 IFBA$="S"THEN455
425 IFBA$="D"THENEE=1:GOTO1115
430 IFBA$="Z"THENEE=-1:SP=1:GOTO1115
435 IFBA$="X"THENSP=1:GOTO455
440 IFBA$="C"THENEE=1:SP=1:GOTO1115
445 GOSUB785
450 GOTO390
455 ZZ=15+INT(RND(3)*2)
460 FORY=11TOZZ:CH=46:GOSUB295:FORM=1TO20-SP*15:NEXT:POKEAD,SV:POKEAD+PC,D
465 GETBA$:IFBA$<>"[133]"ORBA=1THEN475
470 BA=1:ONH+1GOSUB305,315
475 NEXTY
480 FORY=ZZ+1TO21:X=X+.4*EE:GOSUB295:FORM=1TO6-SP*5
485 GETBA$:IFBA$="[133]"THENTM=1:POKEAD,SV:POKEAD+PC,D:GOTO565
490 NEXT
495 POKEAD,SV:POKEAD+PC,D
500 NEXTY
505 PRINT"";
510 IFBA=1THEN530
515 IFEE=0ANDSP=0THEN530
520 IFEE<>0THEN555
525 IFRND(3)>.5THEN555
530 PRINT"STRIKE!![151]":S=S+1:IFS<3THEN815
535 GOSUB1125
540 PRINT"BATTER OUT!![151]":S=0:B=0:O=O+1:IFO<3ANDBA(3)=1ANDY<3THEN1045
545 IFO<3THEN815
550 PRINT"CHANGE!!     [151]":F=-F:O=0:GOTO875
555 PRINT"BALL!![151]":B=B+1:IFB<4THEN815
560 PRINT"WALK !![151]":GOSUB1125:S=0:B=0:GOTO980
565 IFBA=1THEN490
570 BA=1:ONH+1GOSUB305,315
575 IF(Y<>18ANDY<>19)OR(EE<>0ANDZZ=15)THEN490
580 IFEE=0THEN600
585 XX=RND(2):IFXX>.7THEN490
590 IFEE=-1THENCO=-1.7+RND(3):GOTO605
595 CO=.7+RND(3):GOTO605
600 CO=-1.4+RND(3)*1.7:IFY=18ANDH=0ORY=19ANDH=1THENCO=-.3+RND(3)*1.7
605 CH=46:FORY=17TO0STEP-1:X=X+CO:IFX<0ORX>39THEN645
610 GOSUB295:IFSV=PDOR(S1=PDORS2=PD)ANDY<3ANDBA(3)=1ANDO<2THEN620
615 FORM=1TO20-SP*18:NEXT:POKEAD,SV:POKEAD+PC,D:POKE1450+PC,CC
616 POKE1240+PC,CC:POKE1516+PC,CC:GOTO635
620 IFRND(3)>.85THENPRINT"ERROR!![151]":POKEAD+PC,C
621 IFRND(3)>.85THENPOKE1450+PC,CC:POKE1240+PC,CC:POKE1516+PC,CC:GOTO615
625 POKEAD,SV:POKEAD+PC,D:PRINT"CATCH!![151]":POKEAD+PC,C:POKE1482+PC,C
630 GOTO535
635 GOSUB780
640 NEXTY
645 PRINT"";
650 IFABS(CO)>1.1THEN680
655 GOSUB1125:M=ABS(X-18)
660 IFM<1THEN690
665 IFM<4THEN695
670 IFM<9THEN700
675 PRINT"SINGLE!![151]":HI=1:GOTO705
680 PRINT"FOUL!![151]":IFS=2THEN815
685 S=S+1:GOTO815
690 PRINT"HOME RUN!![151]":HI=4:GOTO705
695 PRINT"TRIPLE!![151]":HI=3:GOTO705
700 PRINT"DOUBLE!![151]":HI=2:GOTO705
705 FORLO=1TOHI
710 FORN=3TO0STEP-1:BA(N+1)=BA(N):NEXT:BA(0)=0
715 FORM=1TO70:GOSUB780:NEXT
720 POKE1450,-(BA(1)=1)*PO-(BA(1)=0)*32
721 POKE1450+PC,CC
725 POKE1240,-(BA(2)=1)*PO-(BA(2)=0)*32
726 POKE1240+PC,CC
730 POKE1516,-(BA(3)=1)*PO-(BA(3)=0)*32
731 POKE1516+PC,CC
735 IFBA(4)=0THEN760
740 PRINT" SCORE!![151]":FORM=1TO45:GOSUB780:NEXT:PRINT"[145]         "
745 IFF>0THEN755
750 A$(IN/2+1)=STR$(VAL(A$(IN/2+1))+1):AT=AT+1:GOTO760
755 B$(IN/2)=STR$(VAL(B$(IN/2))+1):BT=BT+1
760 NEXT
765 IFIN=18ANDBT>ATTHEN1035
770 S=0:B=0
775 BA(0)=1:GOTO815
780 GETBA$
785 IFBA$="Q"THENDR=-1:GOTO800
790 IFBA$="E"THENDR=1:GOTO800
795 RETURN
800 IF(PS=32809ANDDR=-1)OR(PS=32821ANDDR=1)THENRETURN
805 POKEPS,32:POKEPS+DR,PD:POKEPS+DR+PC,C:POKEPS+12,32
806 POKEPS+12+DR,PD:POKEPS+12+DR+PC,C
810 POKEPS+23,32:POKEPS+23+DR,PD:POKEPS+23+DR+PC,C:M=M+10:PS=PS+DR:RETURN
815 PRINT" S:";C$(S):PRINT" B:";C$(B):PRINT" O:";C$(O)
820 PRINT"";TAB(34);":";AT
825 PRINTTAB(34);":";BT:FORM=1TO50:GOSUB780:NEXT
830 PRINT"";TAB(16);"               [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
835 IFF<0THENPRINTPT$(PT);
840 IFF>0THENPRINTPG$(PG);
845 H=-(F>0)*G%(PG)-(F<0)*T%(PT)
850 PRINT"        "
855 PRINT"          "
860 PRINT"             "
865 PRINT"             "
870 GOTO370
875 PRINT"";TAB(24);
880 FORA=1TOINT((IN+1)/2)
885 IFVAL(A$(A))>9THENPRINT"";
890 PRINTRIGHT$(A$(A),1);:PRINT"[146]";:NEXT
895 PRINT
900 IFIN=1THEN930
905 PRINTTAB(24);
910 FORW=1TOINT(IN/2)
915 IFVAL(B$(W))>9THENPRINT"";
920 PRINTRIGHT$(B$(W),1);:PRINT"[146]";:NEXT
925 IFF0THEN1040
930 NEXTIN
935 PRINT"          "
940 PRINT"             "
945 PRINT"               "
950 PRINT"";
955 IFAT>BTTHENPRINT"BLUE JAYS ";:GOTO975
960 IFAT<BTTHENPRINT"EXPOS ";:GOTO975
965 PRINT"DRAW GAME!!!"
970 INPUT"  WOULD YOU LIKE TO PLAY AGAIN";Y$:IFY$="Y"THENRUN
972 END
975 PRINT"HAVE WON!!![151]":GOTO970
980 IFBA(1)=0THENFORM=1TO1000:NEXT:BA(1)=1:POKE1450,PO:POKE1450+PC,CC:GOTO815
985 IFBA(2)=0THENFORM=1TO1000:NEXT:BA(2)=1:POKE1240,PO:POKE1240+PC,CC:GOTO815
990 IFBA(3)=0THENFORM=1TO1000:NEXT:BA(3)=1:POKE1516,PO:POKE1516+PC,CC:GOTO815
995 PRINT" SCORE!!"
1000 FORM=1TO45:GOSUB780:NEXT
1005 PRINT"[145]         "
1010 IFF>0THEN1020
1015 A$(IN/2+1)=STR$(VAL(A$(IN/2+1))+1):AT=AT+1:GOTO815
1020 B$(IN/2)=STR$(VAL(B$(IN/2))+1):BT=BT+1
1025 IFIN=18ANDBT>ATTHEN1035
1030 GOTO815
1035 F0=1:GOTO875
1040 PRINT:PRINT"";TAB(35);BT:GOTO290
1045 POKE1923,32:POKE1842,PD:POKE1842+PC,C:X0=(18-X)/17:FORY=2TO19:GOSUB295
1050 FORM=1TO9:GETTU$:IFTU$="[134]"THEN1060
1055 NEXT:POKEAD,SV:X=X+X0:POKEAD+PC,D:NEXTY:GOTO815
1060 BS=.8+.3*RND(2)
1061 POKEAD,SV:POKEAD+PC,D:PRINT"FROM THIRD":BA(3)=0
1065 RA=1516
1070 POKERA,32:POKERA+41,PO:POKERA+41+PC,CC:Y=Y+2.5*BS:X=X+X0*2.5*BS
1071 GOSUB295:RA=RA+41
1075 IFY>18THEN1090
1080 IFRA=1762THEN1110
1085 FORM=1TO10:GOSUB780:NEXT:POKEAD,SV:POKEAD+PC,D:GOTO1070
1090 PRINT"HE'S OUT!![151]"
1095 FORMM=1516TO1721STEP41:POKEMM,32:NEXT
1100 POKEAD,SV:POKEAD+PC,D:O=O+1:IFO<3THEN815
1105 PRINT"[145][145][145]";:GOTO550
1110 PRINT"SAFE! SCORE![151]":POKEAD,SV:POKEAD+PC,D:GOTO1010
1115 IFRND(3)>.3THEN455
1120 EE=0:GOTO455
1125 IFF<0THENPT=PT+1:IFPT=9THENPT=0
1130 IFF>0THENPG=PG+1:IFPG=9THENPG=0
1135 POKE1801,103:POKE1801+PC,D:POKE1804,101:POKE1804+PC,D:RETURN
1140 DATASCOTT,DAWSON,CARTER,STAUB,PARRISH,CROMARTY,WHITE,SPEIER,MOSEBY
1145 DATAGRIFFIN,AINGE,VELEZ,HOWELL,MAYBERRY,WOODS,WHITT
1150 DATA0,0,1,1,0,0,0,1,1,0,0,1,1,1,1,0,1,1